home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / memory.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.7 KB  |  64 lines  |  [TEXT/CCL2]
  1. (deftrap _newhandlesys ((bytecount :signed-long))
  2.   (:a0 :handle)
  3.   (:register-trap #xA522 :d0 bytecount))
  4.  
  5. (deftrap _newhandleclear ((bytecount :signed-long))
  6.   (:a0 :handle)
  7.   (:register-trap #xA322 :d0 bytecount))
  8.  
  9. (deftrap _newhandlesysclear ((bytecount :signed-long))
  10.   (:a0 :handle)
  11.   (:register-trap #xA722 :d0 bytecount))
  12.  
  13. (deftrap _newptrsys ((bytecount :signed-long))
  14.   (:a0 :pointer)
  15.   (:register-trap #xA51E :d0 bytecount))
  16.  
  17. (deftrap _newptrclear ((bytecount :signed-long))
  18.   (:a0 :pointer)
  19.   (:register-trap #xA31E :d0 bytecount))
  20.  
  21. (deftrap _newptrsysclear ((bytecount :signed-long))
  22.   (:a0 :pointer)
  23.   (:register-trap #xA71E :d0 bytecount))
  24.  
  25. (deftrap _maxblocksys nil
  26.   (:d0 :signed-long)
  27.   (:register-trap #xA461))
  28.  
  29. (deftrap _newemptyhandlesys nil
  30.   (:a0 :handle)
  31.   (:register-trap #xA566))
  32.  
  33. (deftrap _compactmemsys ((cbneeded :signed-long))
  34.    (:d0 :signed-long)
  35.    (:register-trap #xA44C :d0 cbneeded))
  36.  
  37. (deftrap _freemem nil
  38.   (:d0 :signed-long)
  39.   (:register-trap #xA01C))
  40.  
  41. (deftrap _freememsys nil
  42.   (:d0 :signed-long)
  43.   (:register-trap #xA41C))
  44.  
  45. (deftrap _maxmem ((grow (:pointer :signed-long)))
  46.   (:a0 :signed-long)
  47.   (%put-long grow (:register-trap #xA11D)))
  48.  
  49. (deftrap _maxmemsys ((grow (:pointer :signed-long)))
  50.   (:a0 :signed-long)
  51.   (%put-long grow (:register-trap #xA51D)))
  52.  
  53. (deftrap _reallocatehandle ((h :handle) (bytecount :signed-long))
  54.    nil
  55.    (:register-trap #xA027 :a0 h :d0 bytecount))
  56.  
  57. (deftrap _purgespace ((total (:pointer :signed-long)) (contig (:pointer :signed-long)))
  58.   ((:a0 :signed-long) (:d0 :signed-long))
  59.   (multiple-value-bind (total-value contig-value)
  60.                        (:register-trap #xa162)
  61.     (%put-long total total-value)
  62.     (%put-long contig contig-value)))
  63.  
  64.